﻿Public Class CChiTietPhieuMuonDTO

    Private m_iMa As Integer
    Public Property Ma() As Integer
        Get
            Return m_iMa
        End Get
        Set(ByVal value As Integer)
            m_iMa = value
        End Set
    End Property


    Private m_dateNgayTra As DateTime
    Public Property NgayTra() As DateTime
        Get
            Return m_dateNgayTra
        End Get
        Set(ByVal value As DateTime)
            m_dateNgayTra = value
        End Set
    End Property


    Private m_iMaPhieuMuon As Integer
    Public Property MaPhieuMuon() As Integer
        Get
            Return m_iMaPhieuMuon
        End Get
        Set(ByVal value As Integer)
            m_iMaPhieuMuon = value
        End Set
    End Property


    Private m_iMaSach As Integer
    Public Property MaSach() As Integer
        Get
            Return m_iMaSach
        End Get
        Set(ByVal value As Integer)
            m_iMaSach = value
        End Set
    End Property


    Private m_iTinhTrang As Integer
    Public Property TinhTrang() As Integer
        Get
            Return m_iTinhTrang
        End Get
        Set(ByVal value As Integer)
            m_iTinhTrang = value
        End Set
    End Property


    Private m_dateNgayMuon As DateTime
    Public Property NgayMuon() As DateTime
        Get
            Return m_dateNgayMuon
        End Get
        Set(ByVal value As DateTime)
            m_dateNgayMuon = value
        End Set
    End Property


    Private m_iSoNgayMuon As Integer
    Public Property SoNgayMuon() As Integer
        Get
            Return m_iSoNgayMuon
        End Get
        Set(ByVal value As Integer)
            m_iSoNgayMuon = value
        End Set
    End Property




    Public Sub New()

    End Sub

    Public Sub New(ByVal _reader As IDataReader)
        m_iMa = _reader("Ma")
        m_dateNgayTra = _reader("NgayTra")
        m_iMaPhieuMuon = _reader("MaPhieuMuon")
        m_iMaSach = _reader("MaSach")
        m_iTinhTrang = _reader("TinhTrang")
        m_dateNgayMuon = _reader("NgayMuon")
    End Sub

    Public Sub New(ByVal masach As Integer, ByVal ngaymuon As DateTime, ByVal songaytratre As Integer)
        m_iMaSach = masach
        m_dateNgayMuon = ngaymuon
        m_iSoNgayMuon = songaytratre
    End Sub



End Class
